home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Communication / Citadel_BBS / Util / Citadel_cimr.lha / mail.script < prev    next >
Encoding:
Text File  |  1997-08-01  |  1.0 KB  |  42 lines
  1. failat 30
  2. cd cit:
  3. echo "Email - Networking started "
  4. delete t:temp
  5. ;
  6. ; loop until there are no more message packets to process
  7. ;
  8. date >>cit:net/email.netlog
  9. LAB LOOP1
  10. cimr yam:archive1/#? "AmigaZone" t:temp remove >>cit:net/email.netlog
  11. if ERROR
  12.   echo "Error processing mail for KRONOS, exiting"
  13. else
  14.   if exists t:temp
  15.     uudecode t:temp
  16.     unzip -o -q kronos.zip <>nil:
  17.     msgadd "Kronos" Kronos >>cit:net/email.netlog
  18.     save_file  Kronos  cit:net/net_save
  19.     delete t:temp
  20.     delete Kronos.zip
  21.     skip LOOP1 back
  22.   else
  23.     echo "Finished mail processing from Kronos"
  24.   endif
  25. endif
  26. LAB LOOP2
  27. cimr yam:archive3/#? "US 914 244 3252" t:temp remove >>cit:net/email.netlog
  28. if ERROR
  29.   echo "Error processing mail for UNCENSORED, exiting"
  30. else
  31.   if exists t:temp
  32.     uudecode t:temp
  33.     msgadd "UNCENSORED" UNCENSOR >>cit:net/email.netlog
  34.     save_file  UNCENSOR  cit:net/net_save
  35.     delete t:temp
  36.     skip LOOP2 back
  37.   else
  38.     echo "Finished mail processing from UNCENSORED"
  39.   endif
  40. endif
  41. echo "Email - Networking finished"
  42.